home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / mac / Extras / Tests / Tests.DXR / 00001.ls next >
Encoding:
Text File  |  1997-06-02  |  2.2 KB  |  80 lines
  1. global gpTestSound1, gpTestSound2, gpTestSprite
  2.  
  3. on startMovie
  4.   clearGlobals()
  5.   initCustomButtons()
  6.   if the machineType < 256 then
  7.     set gpTestSound1 to "In Focus:testdata:sound1.aif"
  8.     set gpTestSound2 to "In Focus:testdata:sound2.aif"
  9.     set the fileName of cast "linked.pic" to "In Focus:testdata:linked.pic"
  10.     set the fileName of cast "noaudio.mov" to "In Focus:testdata:noaudio.mov"
  11.     set the fileName of cast "audio.mov" to "In Focus:QT:FASHION:fshintro.mov"
  12.   else
  13.     set theCDvolume to findVolume("cookie72.trd")
  14.     set gpTestSound1 to theCDvolume & "\testdata\sound1.aif"
  15.     set gpTestSound2 to theCDvolume & "\testdata\sound2.aif"
  16.     set the fileName of cast "linked.pic" to "\testdata\linked.pic"
  17.     set the fileName of cast "noaudio.mov" to "\testdata\noaudio.mov"
  18.     set the fileName of cast "audio.mov" to "\testdata\audio.mov"
  19.   end if
  20.   set gpTestSprite to 12
  21.   alert("Your monitor depth is" && the colorDepth && "bits.")
  22. end
  23.  
  24. on handleLinkedPICT
  25.   waitCursor()
  26.   updateStage()
  27.   puppetSprite(gpTestSprite, 1)
  28.   set the castNum of sprite gpTestSprite to the number of member "linked.pic"
  29.   updateStage()
  30.   pointerCursor()
  31. end
  32.  
  33. on handleImportedPICT
  34.   waitCursor()
  35.   updateStage()
  36.   puppetSprite(gpTestSprite, 1)
  37.   set the castNum of sprite gpTestSprite to the number of member "imported.pic"
  38.   updateStage()
  39.   pointerCursor()
  40. end
  41.  
  42. on handleQTWithSound
  43.   waitCursor()
  44.   puppetSprite(gpTestSprite, 1)
  45.   set the castNum of sprite gpTestSprite to the number of member "audio.mov"
  46.   updateStage()
  47.   set the movieTime of sprite gpTestSprite to 0
  48.   set the movieRate of sprite gpTestSprite to 1
  49.   set the sound of cast the number of member "audio.mov" to 1
  50.   pointerCursor()
  51. end
  52.  
  53. on handleQTNoSound
  54.   waitCursor()
  55.   puppetSprite(gpTestSprite, 1)
  56.   set the castNum of sprite gpTestSprite to the number of member "noaudio.mov"
  57.   updateStage()
  58.   set the movieTime of sprite gpTestSprite to 0
  59.   set the movieRate of sprite gpTestSprite to 1
  60.   pointerCursor()
  61. end
  62.  
  63. on handleSoundChannel1
  64.   waitCursor()
  65.   sound playFile 1, gpTestSound1
  66.   pointerCursor()
  67. end
  68.  
  69. on handleSoundChannel2
  70.   waitCursor()
  71.   sound playFile 2, gpTestSound2
  72.   pointerCursor()
  73. end
  74.  
  75. on handlePuppetSound
  76.   waitCursor()
  77.   puppetSound("import.aif")
  78.   pointerCursor()
  79. end
  80.